library(tidyverse)
library(DeclareDesign)
library(rdss)

sims <- 2000
bootstrap_sims <- 2000

source("code/declarations/declaration_15.3a.R")
source("code/declarations/declaration_15.3b.R")
source("code/declarations/declaration_15.3c.R")

diagnosis_15.3 <- 
  declaration_15.3 |> 
  redesign(cluster_prob = seq(0.1, 0.9, 0.1)) |> 
  diagnose_designs(sims = sims, bootstrap_sims = bootstrap_sims)

write_rds(diagnosis_15.3, file = "diagnosis_objects/diagnosis_15.3.rds")